home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / cookie.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  395 b   |  12 lines
  1. 10   REM Ausgabe des Cookie-Jar
  2. 20   CLS:USING$:FPRINT:FPRINT 'The cookie-jar':FPRINT:USING$,-5:USING
  3. 30   cookie=PEEKL $5A0
  4. 40   WHILE PEEKL cookie<>0
  5. 50     k=k+1
  6. 60     a$='':FOR i=0 TO 3:a$=a$+CHR$ PEEK(cookie+i):NEXT
  7. 70     FPRINT a$,HEX$ PEEKL(cookie+4)
  8. 80     cookie=cookie+8
  9. 90   WEND
  10. 100  FPRINT:j=PEEKL(cookie+4):FPRINT 'entries: ',j,'used: ',k,'free: ',j-k
  11. 110  FPRINT:END
  12.